home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1249 / golden.t < prev    next >
Encoding:
Text File  |  1997-04-18  |  596 b   |  35 lines
  1. %
  2. % "golden.t" computes the golden ratio by iteration using the
  3. % last two items of a fibonacci sequence
  4. %
  5. %   Sample program for the T Interpreter by:
  6. %
  7. %   Stephen R. Schmitt
  8. %   962 Depot Road
  9. %   Boxborough, MA 01719
  10. %
  11.  
  12. var fib0, fib1, fib2 : int
  13. var golden, old_gold : real
  14.  
  15. program
  16.  
  17.     fib0 := 0
  18.     fib1 := 1
  19.     old_gold := 0
  20.  
  21.     loop
  22.  
  23.         fib2 := fib1 + fib0
  24.         fib0 := fib1
  25.         fib1 := fib2
  26.         golden := fib1 / fib0
  27.  
  28.         exit when old_gold = golden
  29.  
  30.         old_gold := golden
  31.         put golden:16:12
  32.  
  33.     end loop
  34.  
  35. end program